home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 4,401 to 4,500 / aol-file-protocol-4400-4401-to-4500.zip / AOLDLs / PDA-Newton Development / ND Register Sample Code / RegisterSampleCode.sit / RegisterSampleCode ƒ / project data < prev    next >
Text File  |  1994-11-26  |  539b  |  24 lines

  1. constant kAppSymbol := '|RegTest:FlaSheridn| ;
  2. constant kSharewareFee := 42;
  3. //constant kSharewareFeeString := "$42";  //optional
  4. constant kVersionString := "1.0d1";
  5.  
  6.  
  7. write("\n" & "_______________________________________" & "\n" 
  8.     & kAppSymbol  && kVersionString &&
  9.     dateNTime(Time()) & 
  10.     "\n" & "_______________________________________" & "\n" & "\n"); 
  11.  
  12.  
  13. defconst( 'kReverseStringsFunc,
  14. func(a,b,c) 
  15. begin
  16.     local inp := a && b && c    ;
  17.     local out := "";
  18.     for i := 0 to strLen(inp) -1 
  19.         do out := inp[i] & out;
  20.     return out;
  21. end;
  22.                     );
  23.  
  24.